HParamBlockRec hpb; /* allocate a union */
hpb.ioParam.ioVRefNum = 2; /* as a union member */
hpb. fileParam.ioFlFndrInfo.fdType = 'TEXT';
hpb. volumeParam.ioVolIndex = 0;
hpb.objParam.ioObjType = 2;
hpb.wdParam.ioWDIndex = 1;
hipb->ioVRefNum = 2; /* or as a structure field */
hfpb->ioFlFndrInfo.fdType = 'TEXT';
hvpb->ioVolIndex = 0;
hopb->ioObjType = 2;
hwpb->ioWDIndex = 1;
short theVRef;
theVRef = ((HIOParam *)pb)-> ioVRefNum; /* fetch a field */ ((HFileParam *)pb)->ioFlLgLen = 1000L; /* store a field */ printf("File type is '%c%c%c%c'\n", pb[32], pb[33], pb[34],pb[35]);